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The dating game 


Reader Paul Powell has come up with a date formatting 
algorithm. It's a confusing area, says Dan O’Brien, no 
thanks to the man who named a calendar after his father. 


Tony Keane, who is an amateur 
historian from Belfast, wrote to enquire 
about an algorithm that Carl Coffey had 
used in May’s Low Level. Carl said that 
his CAL program had used ‘simple logic’ 
(aset of facts about the years 1901-1928, 
repeated to cover the entire century) to 
ascertain dates and the length ofmonths 
for the whole century. Mr Keane 
expressed an interest because he has 
been trying to generate timelines for the 
First World War, using a battery 
(perhaps that’s the wrong word) of 
Project Management packages. Sadly, 
those he has looked at have no sense of 
the past and will not allow him to enter 
dates earlier than 1980. Perhaps, he 
writes, Mr Coffey knows ofa set of later 
years which would replicate the same 
month and day structure as the years 
“1914-1919? 

Peculiarly enough, just as Mr Coffey 
was writing this, someone at the other 
side of the United Kingdom was elec- 
tronically mailing mea program to solve 
this very problem. It’s listed here, and 
to save you typing it in, Mr Keane, the 
years you are looking for are 1998-2003. 

The biggest chunk of the program 
(and the reason why Paul Powell of 
Maldon sent it in) is devoted toa canny 
little procedure which will take what 
Paul describes as ‘slang dates’ (next 
Tuesday, tomorrow, this Wednesday, 
the 2nd and so on) and convert them 
into a number of different, usable date 
formats. Paul says he spotted this fea- 
ture on an old Atari utility many years 
ago, and has missed itso much in the PC 
world that he set about writing it again, 
from scratch. 

For humans, there is a simple, 
intuitive method to handling dates. 
Essentially, we store them as three 
variables: day of the month, month 
numberand year. This has the advantage 


of highlighting certain recurring cycles 
(like birthdays and anniversaries), is 
easy to recall, and is used consistently 
across a vast period of time and space. 

One of the constraints on program- 
mers, though, is space. Three variables 
are wasteful, particularly in ‘date 
intensive’ applications like a Project 
Manager. Moreover, there do seem to be 
easy ways to compact this information. 

Humans use one compression tech- 
nique all the time, chopping the ‘19’ off 
modern dates. Many computer pro- 
grams perform the same rationalisa- 
tion. It’s this that’s going to lead into all 
sorts of obscure bugs on the Interna- 
tional Day of The Bug, which takes 
place on 1 January 2000, or 1900 as 
many computers will suddenly believe 
it to be. There’s always a trade-off with 
sleek programming. 

MSDOS, to pluck an example from 
the air, attempts to be slightly more 
trans-millennial. Nonetheless, it does 
try to keep things snug-fitting in its 
storage of file stamps. DOS allocates a 
limited number of bits to date, month 
and year. For date and month, this has 
no problems attached because it’s very 
unlikely that any month willreach above 
32 days. For the year, MSDOS uses 7 
bits, allowing a choice from 0 to 128. 
Nota terribly cutting-edge set of dates, 
as it happens, so a constant, 1980, is 
added to this, allowing dates from 1980- 
2108. (In fact, DATE function in MSDOS 
stops at 2099: try it.) 

If a Project Manager followed this 
design, it would certainly have 
difficulties getting at dates past 1980. 

Starting at 1980 has a clear difficulty 
for fans of the past. Mr Keane’s problem 
becomes clear here: pre-1980 dates are 
impossible to store in this construction. 
But there’s also a problem for the pro- 
grammer, who will want to manhandle 
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these figures for other concerns. The 
DD/MM/YY form is very difficult to 
manipulate if what you really need to 
know are the intervals between dates or 
the day of the week. This difficulty is 
not exclusively a computer problem. 
Quick — how many days between 2 
March 1982 and 23 June 1993? What 
day of the week was 1 June 1832? The 
problem actually lies in how we per- 
ceive the problem: that is, how we per- 
ceive dates. A simple conversion to 
another way of thinking allows these 
problems to be solved (relatively) eas- 
ily. It’s no coincidence that idiot sa- 
vants, like Dustin Hoffman’s character 


Fig 1 DD/MM/YY to Scaliger Dates 


in Rainman, often show a skill for these 
kinds of problems. 

To perform calculations like these, 
another form of storage is used, such as 
a serial number or the number of days 
since a fixed point in the past. Note that 
even in this form we run into the same 
problem of choosing year 0 unless we 
design our system to cope with nega- 
tive numbers. 

Spreadsheets and databases use this 
form (positive integers only) and it’s 
interesting (up to a point) to see which 
choices are made. Some are more hap- 
hazard than others. Lotus 1-2-3 chooses 
the understandable 1 Jan 1900, while 


SUB DateToScaliger (d%, m%, y%, sc&) 


date% = d%: month% = m%: year% = 


CONST ADStartsHere& = 1720994 


y%: scally& = sc& 


IF (year% < 0) THEN year% = year% + 1 
IF (month*% < 3) THEN year% = year% - 1: month% = month% + 


12 
century’ = FIX(year% / 100) 


gregLeaps% = 2 - century% + FIX(century% / 4) 


kludge 


‘ Papal 


IF (year% < 1752) OR ((year% = 1752) AND (month®% < 10)) OR ((year% 
= 1752) AND (month% = 10) AND (date% < 16)) THEN 


gregLeaps% = 0 


sc& = FIX(365.25 * year%) + FIX(30.6001 * (month% + 1)) + 
date% + ADStartsHere& + gregLeaps% 


END SUB 


Fig 2 Scaliger to DD/MM/YY dates 


SUB ScaligerToDate (date%, month%, year%, sc&) 


scally& = sc& + 1 
‘ Fix Greg leaps first 
IF (scally& > 2299160) THEN 


centuries& = FIX((scally& - 1867216) / 36524.25) 
scally& = scally& + 1 + centuries& - FIX(centuries& / 4) 


END IF 
‘ Now correct for lack of 0 AD 
IF (scally& > 1721423) THEN 


scally& = scally& + 1524 
ELSE 
scally& = scally& + 1158 
END IF 
yé = FIX((scally& - 122.1) / 365.25): A 
Unadjusted year 
start& = FIX(365.25 * y&) ‘ Start 
of year 
m& = FIX((scally& - start&) / 30.6001): ‘ Which 
month? 
date’ = FIX(scally& - start& - FIX((30.6001 * m&))): 4 Which 
day? 


‘ Sort out month, adjust year. 


IF (m& < 14) THEN month®% = m& - 1 ELSE month% = m& - 13 
IF (month’% < 3) THEN year% = y& - 4715 ELSE year% = y& - 4716 


END SUB 


Fig 3 Using Zeller’s Congruence to find days of the week 


FUNCTION DofWeek (d%, m%, y%) 


date% = d%: month% = m%: year%® = y% 
IF (year% < 0) THEN year% = year% +1 
IF (month% < 3) THEN year% = year% - 1: month% = month% + 12 


century’ = FIX(year% / 100) 
year% = year% MOD 100 


zeller% = FIX(date% + FIX(((month% + 1) * 26) / 10) + year% + 


(year% / 4)) 


zeller% = FIX(zeller% + (century% / 4) + 5 * century%) 


DofWeek = zeller% MOD 7 


END FUNCTION 
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Excel goes for the slightly more ob- 
scure 1 Jan 1904 (presumably avoid- 
ing some nasty calculations with leap 
years in 1900). 

The natural solution is to choose a 
date far enough in the past to be no 
trouble to anyone. Fortunately, as- 
tronomers have been living with the 
same problem and came up with a 
solution some time ago. One of their 
first job descriptions (Babylonian 
Royal Observatory, circa 6000 BC) was 
to calculate the period between floods, 
eclipses and other scary phenomena, 
so they’ve been making use of serial 
dates since the year dot. To facilitate 
calculations (and to stop all that mess- 
ing around in negative space), the 
18th century astronomer Joseph 
Scaliger chose a year which was as 
root as he could make it without serial 
numbers being too large to contem- 
plate. 

Scaliger time begins at noon on 1 
January 4713BC, the most recent date 
upon which the Solar, Lunar and 
Indiction periods all coincided (don’t 
write and ask, I have no idea). This 
was entirely logical and made a great 
deal of sense, but Scaliger went and 
ruined it by describing his new num- 
bers as Julian dates. This was dumb 
because the old calendar was also 
known as Julian. One Julian was 
named after the famous Roman Julius 
Caesar, the other after Scaliger’s dad. 
Brilliant. Since then, no-one has quite 
been able to remember which Julian is 
which. Many people (including the 
US government) believe that number- 
ing days from 1 Jan of the current year 
is Julian. Splendid. In an attempt to 
get a grip, I’m renaming the 4713BC 
tule as the Scaliger system in honour 
of both Joseph and his dad, and that is 
how it will be referred to in this text. 

So, to play safe astronomically, you 
might like to have a look at the short 
algorithms in Figs 2 and 3 which pro- 
vide for conversion to this figure and 
backagain. The formulaisn’ttoo tricky, 
although Paul reports that ittook some 
time to dig it out. The first matter 
tackled is the mysterious disappear- 
ance in our calendar of OAD (think 
about it). 

Scaliger also uses a famous algo- 
rithm, INT (30.6001 * (month +1)), 
which gives the number of days 
elapsed since the beginning of the 
year. Unfortunately, it only works if 
January and February are seen as 
months 13 and 14 ofthe previous year, 
and March starts straight in as month 
number three. Most of the early mess- 
ing about is due to this. Then there’s 
some tweaking to include the extra 
leap years that the Gregorian reforms 
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Fig 4 A more natural way to enter dates 


REM Date/Slang Converter 

REM by Paul Powell, 1992 

DECLARE SUB DateToScaliger (d%, m%, y%, sc&) 

DECLARE FUNCTION DofWeek (d%, m%, y%) 

DECLARE SUB ScaligerToDate (date%, month%, year%, sc&) 
DECLARE SUB gotoDay (weekdayNo%, dispNo%, date%, month%, year%) 
DECLARE SUB showDate (date%, month%, year%) 

DECLARE SUB slangToDate (A$, date%, month%, year%) 
DECLARE FUNCTION search (A$(), n$) 

DECLARE SUB load (A$()) 

DECLARE SUB adddate (A%, d%, m%, y%) 

DATA “mon” iy "tue", "wed", "thur”, “Eri” Me "sat , "sun" 

DATA 


u“ j an” - "Feb" F "mar" Fi “apr” * “may” ; “jun” 7 "jul " "aug" ia ao sep” 7 #oct” ry "nov" , "dec uo 


DATA 


“today”, ”tomor”, “yest”, “week”, “month”, ”fortnight”, "year", “quarter” 


DATA “last”,”this”,”next” 

DATA 000, 001, -001, 010, 100, 020, 1200, 300 

DIM SHARED days$(1 TO 7) 

DIM SHARED months$(1 TO 12) 

DIM SHARED periods$(1 TO 8), add%(1 TO 8) 

DIM SHARED displacements$(1 TO 3) 

CALL load (days$()) ( 
CALL load(months$()) 


CALL load (periods$() ) 


CALL load(displacements$() ) 
FOR I% = LBOUND(add%) TO UBOUND(add%): READ add%(I%): NEXT 1% 
CONST TRUE = -1, FALSE = 0 
CONST historic = TRUE 
Ndate$ = DATES 
date% = VAL(MID$(Ndate$, 4, 2)): month% = VAL(LEFT$(Ndate$, 2)) 
year% = VAL(RIGHT$(Ndate$, 4)) 
DO 
CALL showDate(date%, month%, year%) 
LINE INPUT A$ 
CALL slangToDate(A$, date%, month%, year%) 
LOOP UNTIL 0 
SUB adddate (add%, d%, m%, y%) 
adddays% = (add% MOD 10): addweeks% = FIX(add% / 10) MOD 10 
addmonths% = FIX(add% / 100) 
CALL DateToScaliger((d%), (m%), (y%), sc1&) 
scl& = scl& + adddays% + 7 * addweeks% 
CALL ScaligerToDate(d%, m%, y%, (scl&)) 
IF (addmonths% <> 0) THEN 
m% = m% + addmonths%: DO 
IF (m% < 1) THEN y% = y% - 1: m% = m% + 12 
IF (m% > 12) THEN y% = y% + 1: m% = m% - 12 
LOOP UNTIL (m% > 0) AND (m% < 13) ye 
END IF — 
END SUB 


SUB gotoDay (weekdayNo%, dispNo%, date%, month%, year%) 
CALL DateToScaliger(date%, month%, year%, sc1&) 
DofWw% = ((scl& + 1) MOD 7) 
‘Special case - when we say ‘Wednesday’ and today is wednesday, we 
mean 
‘in a weeks time... 
IF (weekdayNo% = DofW%) AND (dispNo% < 1) THEN 
scl& = scl& + 7 
CALL ScaligerToDate(date%, month%, year%, sc1l&) 
EXIT SUB 
END IF 
IF dispNo% < 1 THEN 
scl& = scl& - ((scl& + 1) MOD 7)’ Back to start of week 
direction%® = 1 


END IF 
IF dispNo% = 1 THEN direction% = -1: scl& = scl& - 7 
IF dispNo% = 2 THEN direction’ = 1: scl& scl&é + 1 
IF dispNo% = 3 THEN direction’ = 


1: scl& = scl& + 7 
DO WHILE (weekdayNo% <> ((scl& + 1) MOD 7) 
scl& = scl& + direction%: LOOP 
CALL ScaligerToDate(date%, month%, year%, sc1&) 
END SUB 
SUB load (A$()) 
FOR I% = LBOUND(A$) TO UBOUND(A$): READ A$(I%): NEXT 
END SUB 
FUNCTION search (s$(), in$) 
FOR I% = LBOUND(s$) TO UBOUND(s$) 
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IF INSTR(in$, s$(I%)) <> 0 THEN search = I%: EXIT FUNCTION 
NEXT 
search = -1 
END FUNCTION 
SUB showDate (date%, month%, year%) 
CALL DateToScaliger(date%, month%, year%, sc1&) 
PRINT days$((scl& + 1) MOD 7 + 1); “ “; date%; “/”; month%; “/”; 
year% 
END SUB 
SUB slangToDate (inp$, date%, month%, year%) 
‘ Initial tidying up 
DIM numbers(1 TO 3) 
inp$ = LCASES(inp$) 
bee 1 
IF INSTR(inp$, “bc”) AND (historic) THEN be = -1 
numval = 0 
n$ = STRING$(LEN(inp$), “ “): BS = 
FOR I% = 1 TO LEN(inp$) 
C$ = MID$(inp$, I%, 1) 
TF INSTR(“, 3 3=/\" 7 CS) THEN C$ =" """# 
IF (VAL(C$) > 0) AND (number = FALSE) THEN 
numval = numval + 1 
number = TRUE 
numbers(numval) = VAL(MID$(inp$, I%)) 
END IF 
IF (VAL(C$) = 0) AND (C$ <> “0”) AND (number = TRUE) THEN number 
= FALSE 
n$ = n$ + C$ 
NEXT I% 
IF (numval = 3) THEN 
date’ = numbers(1) ‘ Note British 
month’ = numbers(2)’ Ordering 
year®% = numbers (3) 
IF year% < 99 AND NOT (historic) THEN year% = 
year% + 1900 
year% = year% * bce 
EXIT SUB 
END IF 
monNo% = search(months$(), n$): 
weekdayNo% = search(days$(), n$) 
periodNo% = search(periods$(), n$) 
dispNo% = search(displacements$(), n$) 
‘ First, look for dead certs - months, and weekdays 
IF monNo% <> -1 AND numval > 0 THEN 
date% = numbers (1) 
month% = monNo% 
IF (numval = 2) THEN year% = numbers(2) 
IF year% < 99 AND NOT (historic) THEN year% = 
year% + 1900 
year% = year% * be 
EXIT SUB 
END IF 
‘ Today, tomorrow and yesterday next 
IF periodNo% > 0 AND periodNo% < 4 THEN 
CALL adddate(add%(periodNo%), date%, month%, 
year%) 
EXIT SUB 
END IF 
‘ Next, look for days 
IF (weekdayNo% > 0) THEN 
CALL gotoDay(weekdayNo% - 1, dispNo%, date%, month%, 


year%) 
EXIT SUB 
END IF 
‘ Now look for statements of the form ‘next/last week/month/ 
year..’ 


IF (periodNo% > 3) AND ((dispNo% = 1) OR (dispNo% = 3)) THEN 
IF dispNo% = 1 THEN CALL adddate(add%(periodNo%) * -1, 
date%, month%, year%) 
IF dispNo% = 3 THEN CALL adddate(add%(periodNo%), date%, 
month%, year%) 
EXIT SUB 
END IF 
‘Now look for a simple date 
IF (numval = 1) THEN 
date% = numbers (1) 
EXIT SUB 
END IF 
END SUB 


in 1752 generated. And that’s it. 

The second formula is a lot trickier 
mathematically but does just reverse 
the previous equation, so few worries 
there. Technically, incidentally, all 
these Scaliger values are 0.5 out (since 
he counted from noon rather than 
midnight), something to bear in mind 
if you are going to use them for astro- 
nomical work. 

Language snobs offended by Paul’s 
use of Microsoft QBASIC rather thana 
higher language should be reassured 
when he says: ‘I’m only doing it to 
demonstrate how easy an implemen- 
tation this is.' Ahem. Also, ‘Microsoft 
QBASIC’s brain-damaged INT func- 
tion (which rounds up forno apparent 
reason) has meant that I have had to be 
more explicit about which values are 
integers and which are not, an impor- 
tant issue in this algorithm.’ A few 
extra notes: a variable with an amper- 
sand after itrefers to a double precision 
(32-bit) integer and is essential for 
Scaliger date work. On the other hand, 
once you’vereserved that much space, 
you can store dates up to the year 
32767. 

The Scaliger approach is useful in 
many applications but does smack 
slightly of overkill in others. Surely 
DOS doesn’t convert to Scaliger days 
every time it needs to know the day of 
the week? No. As a slight aside to the 
rest of his code, Paul has included a 
non-Scaliger implementation of the 
day of the week function, using a 
technique known by the eerie title of 
Zeller’s Congruence. In fact, this is 
possibly the oldest hack in existence, 
having been invented in 1887 by a 
German mathematics professor, Herr 
Zeller. It’s a nifty little integer formula 
which will return a day number if fed 
with date, month and year values only. 
Zeller’s Congruence has been imple- 
mented on siliconware since the time 
of pocket calculators, but unfortu- 
nately in many different forms and 
notall ofthem are correct. Once again, 
the errors can be very subtle. The very 
marvellous JeffDuntemann once spent 
three months in his column in Dr 
Dobbs’ Journal analysing common 
bugs in its implementation. The mod- 
ern formulation listed in Fig 4 owes as 
much to him as Zeller, and I would 
refer you to him for an explanation of 
its finer points. 

Paul does not actually use the rou- 
tine in this program but includes it in 
the listing. He explains: ‘I spent three 
months chasing up the references to it, 
and if I don’t get it published, those 
three months will be missing from my 
life. And if that happens, I’ll have to 
recalibrate everything.’ 
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50 DISKS £21.00 £32.50 48tpi 96tpi HD DSDD DSHD DSDD DSH’ 
100:DISKS £40.09 £63.50 25 Disks £9.00 £16.00 £15.00 £22.00 
200 DISKS £75.00 £125.50 25 Disks £8.50 £8.75 £12.00 50 Disks £1750 £30.00 £24.00 £38.00 
500 DISKS £175.00 £295.50 50 Disks £16.00 £16.25 £23.00 1 a 4 : ‘ : 
1000 DISKS £329.00 £580.50 00 Disks £31.00 £51.00 £44.00 £70.00 


100 Disks £28.00 £27.25 £36.00 
1000+ PLEASE CALL 


MICE/TRACKERBALLS 


Includes Labels. NOTE: The above disks are 
based on > 55% clipping level, cheaper disks are 
available. Please Call. 


COMPUTER MATES 
BRANDED DISKS 


Includes labels, for available colours please call. 
Normally Red, Green, Yellow, White & Orange 


STORAGE BOXES 


PC/XT/MOUSE cet crcvescsttestvcctitees reeset £20.00 | 3.5" DISK 5.25" STACKABLE BOXES 
PS2IMOUS Ete iss-sstcscdastetvsssig ne £21.00 |CAPACITY CAPACITY DISKNAME CAPACITY 
2 FOR 1 LIFE WARRANTY AMIGA/COMMODORE S18.00' Liss Ce aan ee eens OL AI | Soanes “61490 
” ATARI Rete ts oe £19.00 ]100....£ 790 100.....£7.50 35°BIMBY _200....£18.99 
3.5 DISKS COLOURED RAGA TRACKBALL RN 80....2 7.50 50.....€6.50 5.25°BIMBY5 200....£18.99 
i S| See : 50.....£6.50 “BIMBY BOXES CAN ALSO HOLD 
DSDD DSHD pass petsnse TO in See 4 40 .....£6.00 3”, 2.8", VIDEO TAPES, CARTRIDGES” 
50 Disks £23.00 £35.00 . MM] P MIU SE MAL Lecce eee Qe eee . ALL ABOVE BOXES LOCKABE + 2 KEYS 
100 Disk £45.00 £69.00 £50.00 £75.00 | | MOUSE POCKET ......... > See : £2.00 OFF BOXES WHEN ORDERING 100 BULK DISKS OR MORE 
200 Disks’ »886.00:/S93 7100: (1 CIO D AAR | meena. ange Ein ah | S0CAPeLsbee CAPA SiA8: CaP wena 
500 Disks:1200.00 £425:00'. | £210.00) SAS100) | fie esas aa cet rnsraarenersacast senses ss 7 CARDBOARD DISK MAILERS........... £150/1000 OR £25/100 


DUST COVERS 


SPECIAL OFFERS THIS MONTH f£ 


! COMPUTER PX XT, AT+MONITOR £6.00 

—— , URN NABER Ss, <'ciann Saioutaee Goa B aude ol io nce Obes tonite ackesu cae .' 
LOOK SAVE YOUR EYES oe 12" or'14” MONITOR... VER yoftMS £6.00 
12” or 14" COLOUR OR MONO FILTER SCREEN 80'0r132 PRINTER........... gst OY ot SY? All... srencnoly £6.00 
SAVE YOUREYES |... ONLY £13.99 Wy LAZER PRINTER............ pv. i Jens ot LPN EH Pe ne ae 10 
OPTICAL GEASS FILTER 20 i tietictesccscctecss- ; j 84 OR 102 KEYBOARD........ Fok ede pith VuNovaneantapaibh Rscieate ky ‘0 


OPTICAL GLASS FILTER 14" 00... ceeeeeseeseeeee i a = =e TOWER CPU 
12" or 14” TILT & TURN WITH : 


MINI VACUUM CLEANER................ 
HEAD CLEANER 3.5” OR 5.25”... 

MONITOR CLEANING SOLUTION .. 
ALL THE ABOVE AND MORE............ 
3° CLEANING KIT 


PRINTER STAND (Feet) 80 OR 132 COLUMN .£8.00 
IBN BAINES! tc satanacteng (ap sauamet anne ce £5.00 | 


... £8.00 each 


A4 DESK TOP Angle Poise ..............-. LOOK VIDEO TAPES E180 
A4 ANGLE POISE G-Clamp.............-. £15.99 LIFE TIME WARRANTY 


AC DESK TORQ eicanisiquth 2) fu: 3 HOURS — 10 FOR £20, 50 FOR £90 
Neto satel f 80 COLUMN MAGNIFYING RULER...€3.00 | FOR COLLECTIONS VISIT OUR NEW SHOP AT 


Ge RES OL 00 | PRINTER MULTI-FORM FEEDER.....£16.00 i Guetenie te 


SORRY! SORRY! SORRY! 


WE DO NOT PRICE MATCH BUT WE DO ALL BLUE BOX DISKS ARE COMPLETELY PACKAGED 
GIVES A QUANTITY! #DISGOUNT.A OWITH iets eds oe ra eee. ce IN BLUE PRINTED CARDBOARD BOXES WITH LABELS 


SERVICE, QUALITY AND BACKING FROM | — “S07 EEE 96 DUDSED soso: Meee. eet ees 
THE LARGEST DISK MANUFACTURERS IN J “S005 oes MF-2DD 10'S 1 MEG MF-2HD10'S2MEG M-2D 48TPI 360K 
THE WORLD. IN ADDITION OVER 200 LINES | DCSOOEXL....... BOX eld £5.00 1 BOX........... £8.50 1 BOX (10)...... £4.00 


OF PERIPHERALS INSTOCK. ASK FOROUR 
COLOUR CATALOGUE & PRICE LIST WITH 
YOUR ORDER OR SEND 24p S.AE. 


MF-2DD 30'S 1MEG MF-2HD 30'S 2MEG M-2DD 96TPI 720K 

1 BOX (30)..... 14.00 1 BOX (30)....€©24.50 1 BOX (10)......£4.75 
BAMBI-2DD 1MEG  BAMBI-2HD2MEG _ M-2HD 1.6 MEGH/D 
25 DISKS IN 25 25 DISKS IN 25 1 BOX (10)......€5.00 
CAPACITY STORAGE CAPACITY STORAGE ETRanRen i: 


CALL SAM OR PAT NOW QTY DISCOUNTS: PLEASE CALL BOX BOX GIVEN ON 10 BOXES 
ON 0753 553535 OR FAX hoe ee 14.00 1 BOX......... £21.00 Petting 


FED UP WAITING? av. onpers are NoRMALLY DELIVERED TO YOU WITHIN 48 HOURS 


DC600A.......... £15.50 DC2000........... £13.50 
DOG150 reso £1700 DE2080"...3. 5.2.0 £16.50 
DC6250:75 ee £24.00 DC2120........... £16.50 


